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To: Users of the ToolKifs Text Building Block 

From: 

Date: 21 March 1984 

Subject: How to use the Text Building Block (TK8E) (draft version 3) 



When reading this document it is suggested that you have a copy of the UText 
interface available for reference. 

The Text Building Block allows users to specify an LRect in their view in which 
multiple paragraphs may be entered either from the keyboard or pasted f rorc tne 
clipboard, within this box, text will word wrap based on the bounds cf the box 
arid optional indentation fields in the TParaFormat object. These fields aefault 
to zero, thus if the values are not changed, the text will fit tightly within 
the LRect specified. (Currently only left justified text is supported so there 
will be a ragged right edge.) 

Application programmers must create a TTextlmage for each separate grouo of text 
they wish to display. The CREATE method expects an LRect within its view, in 
addition, the isGrowable boolean parameter specifies whether or not trie LRect 
can grow at the bottom if text that is displayed cannot fit in the specifier 
LRect. 

Textlmages display TText objects. A TText object contains a list of TParagraph 
objects. Each TParagraph object contains the characters ano typeStyle 
information for one paragraph. Associated with each paragraph is a TParalmage 
which is stored in a list of TParalmages in TTextlmage. A TParalmage contains 
all of the display specific information about a particular paragraph such as 
where each line ends and the pixel height of the displayed paragraph, when a 
TTextlmage is created, it must have an initial TText object. Trie TText object, 
in turn, must have at least one paragraph in its paragraph list. Also, each 
paragraph points to a TParaFormat, which specifies margins, tabs, paragraph 
spacing and other formatting characteristics. 

TParaFormats are stored in a TStyleSheet, which is simply a list of 
TParaFonnats. Since the list is an indexed list, one can store commonly used 
formats at known positions in the list for rapid retrieval when reformatting a 
particular paragraph. Typically, applications store a single stylesheet in a 
field of their application window. Each TText object, in addition to containing 
a list of paragraphs also points to a stylesheet. By storing the stylesheet in 
the window, each TText object can reference the same stylesheet. 
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The typical order of allocation is then: Create a TParaFormat, then create a 
TStyleSheet and install the paraFormat in its list. Set TAppiindow . stylesheet 
to the new stylesheet. Create a paragraph, passing the paraFormat just created. 
Create a TText object and install the paragraph just created in its paragraphs 
list and the set stylesheet field to the new stylesheet. Now create the" 
TTextlmage. The text object has a list of text images that are displaying it 
(usually just one), so the textlmage just created must be Installed into the 
text's txtlmgList. Before displaying the textlmage for the first time trie user 
must call textlmage. tk so that the textlmage* s paralmage list will be 
initialized properly. The following code seg^nt illustrates this: 

partfomat := TP«iaF©nwt.CR£ATE(NIL, heap); 
styleSheet := TStyleSheet. CREATE (NIL, heap); 
stylesheet .fornats .InsLast(paiaFornat); 
nyUindow. styleSheet := stylesheet; 

paragraph := TParagraph.CREATE(NIL. heap. 0. paxaFornat); 

text := TText. CR£ATE(NIL, heap, styleSheet); 

text .paragraphs .InsLast(paragraph); 

textlnage := TTextlnage .CR£ATE(HIL, heap, nyView. nyLRect. text. TRUE); 

text . txtlngList . Inslas t( textlnage) ; 

texUnage.Reconputelnages(acUonNone, FALSE); 

The parameters to Recomputelmages tell the Building Block not to draw anything 
(actionNone; other possible values are actionDraw which would draw cirectly on 
the screen if view.OKToDrawin returns true, and actionlnval which invalidates 
the portion of the screen affected by the change. Since we are in an 
initialization procedure, BlankStationery, there is no place to draw yet so we 
use actionNone.) and to set any invalid flags to FALSE, indicating that the data 
structures are now valid. 

To simplify the above, the Text Building Block provides some Initialization 
methods to generate default objects. This is accomplished t^y the following: 

styleSheet := TStyleSheet .CR£ATE(WL, heap); 

styleSheet . InitOefault; 

nyUindow. styleSheet : = styleSheet; 

text := TText. CREATE(KIL. heap, styleSheet); 

textlnage := text.DfltTextInage(nyVieu, nyLRect. isCrowable); 

nyVieu. textlnage := textlnage ; 

TStyleSheet. InitOefault will create a default paraFormat and install it in its 
formats list. TText. Df It Text Image will install a single empty paragraph in its 
paragraphs list. It uses its own styleSheet to get the paraFormat for the 
paragraph, it also creates a TTextlmage object and installs it into its 
txtlmgList and calls textlmage. Recomputelmages to set up the paralmage list. 
Finally it returns the created textlmage. » 

Once a textlmage has been created and installed in the application's view, it 
can be displayed by calling text Image. Draw from the view's Draw method. If the 
text is to be framed by a box, the view's Draw method should first set a local 
LRect variable, r, to the textlmage 's extentLRect, call InsetLRect(r, -l, 0) and 
then call FrameLRect(r). The InsetLRect makes the box one pixel wider on each 
side. The reason for this is that text highlighting always highlights by an 
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extra pixel so that characters at the edges will be completely highlighted. Cf 
course, ore could always make the Dox even bigger if desired. 

In order to perform editing on a textlmage, a TTextSelection must be 
established. This is done automatically by the Text Buliding Block when 
TTextlmage.HousePress is called. Within the application view's MousePress 
routine will be tests to see if the mouseLPt falls within a particular 
textlmage' s extentlRect. FoundTextlmage.housePress is then called with the sa~; 
mouseLPt as the parameter. Textlmage. MousePress calls panel .BeginSelectioa 
which automatically unnighlights the current selection. MousePress then 
determines which character the mouse mas over and creates and blinks an 
insertion point at that character. (Note: TInsertionPoint is a subclass of 
TTextSelection.) If the mouse was somewhere after the last character then tne 
insertion point appears immediately after the last character. Here is a simple 
example : 

PROCEDURE TnyVi«*.flousePress(iKWseLPt: LPoint); 
BEGIN 

IF LPtInLRect(«o«seLPt. SELF.firstTxtlng.txtentLRect) THEN 

$ELF.fimTxtIng.HousePiess(r»ouseLPt) 
ELSE IF LPtInLRect(«wseLPt, SELF.secondTxtlng.extentLRect) THEN 

SELF .secondl xtlng .nousePress(nouseLPL) 
ELSE 

{Do ny own thing} 
END; 

From an application standpoint, this is all the programmer needs to do with 
regard to simple text images. The text building block handles most everything 
else via the textSelection. 



If the user clicks and then drags the mouse, characters will be selected as they 
are encountered. Double and triple click are also handled automatically by tne 
buliding block. When one or more characters are selected, the user may cut or 
copy the text to the clipboard and paste the text elsewhere. TypeStyle changes 
are also handled. When the clear command is executed, all the text in trie text 
image is cleared, leaving just an insertion point. 

Undo is supported for typing, style changes, cut, copy, paste, and clear, undo 
typing will even work if the style is changed while typing. For example, if tne 
user sets an insertion point, types some characters, selects underline, types , 
some more characters, selects plain, types more and then selects "Undo Typing", 
all the characters entered since the insertion point was set are deleted. 

hore Sophisticated Use of the Text Building Block 

Chained Text Images 

The Text Building Block also supports the ability to nave text flow from one 
textlmage to another. This is accomplished via fields in TTextlmage tnat mjst 
be set and maintained by the application. These fields are nextTxtlmg, 
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prevTxtimg, headTxtlmg, and tailTxtlmg. The next and previous fields default to 
NIL and the head and tail fields default to SELF. The text field in these 
"linked" textlmages all point to the same next object. The paralmage list 
refers only to the images within the particular text image. Note that 
paragraphs may now be split between two (or more) textlmages. Thus more than 
one paralmage may reference the sane paragraph. Trie fields startLP and endLP in 
TParalmage indicate which characters in the paragraph it is displaying. (LP 
stands for logical position, where the first character in a paragraph is LP 0.) 

When multiple textlmages are linked together to display the same Text object, 
the application view's Draw method need only call textlmage. Draw on the first 
textlmage in the chain, the "head" textlmage. Text I mage. Or aw calls Draw on each 
textlmage in the chain. Here is a sample of Blank stationery code that would 
create three columns of text side by side: 

SetLRect(r. 10. 10. 210, 310); 

textlnage := TTextIr»ege.CREATE(KIL, heap, nyView, r, text. FALSE); 
text . txtlngL ist . InsLast( textlnage) ; 
fiyView.colurml := textlnage; 

OffsetLRect<r. 210. 0); 

textlwage := TTextlnage. CREATE (MIL, heap. nyVie*. r, text. FALSE); 

nyViev.colurvtf := textlnage; 

OffsetLRectd. 210, 0); 

textlnage := TTextlnage. CREATE (NIL, heap. wyView. i, text. FALSE); 

nyView.colunrtf := textlnege; 
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colunnl.nextTxtlng - 


= colunn2 


colurml.tailTxtlng : 


= colunn3 


colunn2.prevTxtlng - 


= colunnl 


coluwtf.nextTxtlng j 


= columti 


colunn2.headTxtIng . 


= colurml 


colunn2.tailTxtIng • 


= colum3 


colum3 .prevTxtlng 


= colum2 


colunn3 .headTxtlng 


.= columl 


END; 





nyViev. colurml .ReconputeInages(actionNone, FALSE); 

Note a few important points in this example, we assume the TText object has 
already been created. In TTextimage. create we passed false for lsGrowaoie. If 
we passed TRUE, text would never flow to the next box; instead the box would 
just get longer. Also, we only installed the first textlmage into 
text.txtlmgList. Tnis is very important. Only the head textlmaoe of a chained 
textlmage list is installed in text.txtlmqLlst. In the with statement, we took 
advantage of the default values of nextTxtlmg, prevTxtlmg, and so forth so we 
didn't have to set, for example, columnl. prevTxtlmg. 

Multiple panels 

a simple example of text in multiple panels is Llsacaic where tne text in tne 
selected cell is also shown in the top panel's "wide view". The Text Building 
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Block supports this notion. It is here that the txtlmgList in the TText object 
is used. Where as the chainea text images anility -allows the sane text object 
to flow from text I mage to textlmage, the txtlmgList allows the sarre portion of 
the text to be visible in multiple panels at once. When a textlmage is created 
that displays the same text object as in another panel, the textlmage is simply 
installed into the text's txtlmgList. Here is another code segement from 
Blank Stationery: 

panel := TPanel.CR£ATE(HIl, heap. SELF, ... ); 

r»y7opViev := TT1yTopViev.CKtA7E(KIL. heap, panel. ... ); 

SetLReci(r. 10. 10. 210. 310); 

textlnage := TTextlnage.CREATEfHIL, heap. nyTopViev. r, text. TRUE); 

text.txtlngList.Inslast(textlrvage); 

nyTopView.textlrvage := textln&ge; 

UxtIna9e.Rerc*v<JteIft*9es(©cticxiMone. FALSE); 

panel :- panel. Divide(v, ... ); 

ny&ottonView := Tny6oUc*TVie«.CREATE(HIL. heap, panel, ... ); 

SeURect(r. *0, 10. 600. IX)); 

textlnage := TTextI*age.CR£A7E(KIL, heap. rtyeotUmView. r, text. FALSE); 

text . txtlngL i st . InsL est( text! rvage ) ; 

«yBottonVie«.textlnage := textlnage; 

t*xtJfvage.ReconputeIrv^s(actionKone. FALSE); 



Again, we assume the TText object has already been created. Ncte this time that 
we install both text I mages into text.txtlmgList. Also, notice that the two 
textlmages have completely different sized'extentLRects and one is growable arc 
the other is not. This is perfectly acceptable. The text will be be formatted 
differently in each panel. All changes to text in one panel will be reflected 
in the text displayed in the other panel. This includes highlighting and 
insertion point blinking. 

To reiterate a previous point, an important assumption that the Text Building 
Block makes is that each textlmage in text.txtlmgList is in a different panel. 
Applications must adhere to this"rule. 
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UNIT UText; 

{SSETC Islntrinsic :• TRUE } 

f$IFC Islntrinsic] 

INTRINSIC; 

{$ENDC} 

{Multiple Paragraph Building Block for the Tool Kit} 



changed 04/25/84 1437 

changed Q4/18/84 1652 

changed 04/16/84 1135 

Changed 04/13/84 0209 

changed 04A2/84 2344 

[ changed 04/10/84 1400 

INTERFACE 

{$0ECL fUseUnivText) 

[$SETC fUseUnivText : 



Added TText Image. Txt IrogForCl ipBoard method) 

Added firstlihePixel, useFirstPixel fields to TText Image) 

Added stylesheet field to TParaFormat] 

Added TText Image. NeuEditPara) 

Changed parameter list of TParagraph. UpdateRuns) 

Changed TEditPara. images field back to a TList) 



TRUE) 



USES 

f$U 1 ibtk/UOblect) 
{$IFC LibraryVersion <- 20} 

f$U UFont} 
{SENDC) 

{$U QuickDraw} 

f$U 1 ibtk/UOrau} 
{$IFC fUseUnivText) 

f$U 1 ibtk/UUnivText) 
{SENOCJ 

{$U UABC) UABC; 



UObject, 



UFont, 

QuickDrau, 

UOrau, 



UTKUniversalText, 



{SDECL fText Trace} 

SSETC fText Trace : 

SDECL fParaTrace} 

$SETC fParaTrace : 

' SDECL fRngText) 

SSETC fRngText : » 

CONST 



- fDbgOK) 

- fDbgOK) 
fDbgOK) 



cVertHargin ■ 4; 
cHorizhargin ■ 6; 

somethingKind - 1; 



TYPE 



TStyleChange 
lp: 

neuStyl e: 
END; 



RECORD 
INTEGER; 
TTypeStyle; 



TTxtTabDescriptor ■ RECORD 
xCoord: INTEGER; 
quad: TA1 ignment; 
[MORE LATER) 

END; 

TDrauAct ion - ( act ionDrau, act ion Inval , act ionNone) ; 
{ PARAGRAPH SUBCLASSES } 



TParaFormat • SUBCLASS OF TObject 
TTypeStyle; 



dfltTStyle: 

uordWrap: 

quad: 

first Indent: 

left Indent: 

right Indent: 

spaceAbovePara: 

spaceBel ouPara: 

1 ineSpacing: 

tabs: 

re f Count: 

permanent: 

stylesheet: 



BOOLEAN; 

TA1 ignment; 

INTEGER; 

INTEGER; 

INTEGER; 

INTEGER; 

INTEGER; 

INTEGER; 

TArray; 

INTEGER; 
BOOLEAN; 
TStyleSheet; 



{default type style] 



{number of paragraphs referencing this paraFormat) 
{TRUE -> don' t free uhen refcount goes to zero) 
{NIL if format not in a stylesheet] 



FUNCTION TParaFormat. CREATE( object: TObject; heap 

{$IFC fParaTrace) 

PROCEDURE TParaFormat. Fields( PROCEDURE Field(nameAndType 

fSENOC] 

PROCEDURI 



THeap; itsStyleSheet: TStyleSheet): TParaFormat; 
S255)); OVERRIDE; 



£ TParaFormat. Set TypeStyle(t Style: TTypeStyle); 
PROCEDURE TParaFormat. ChangeRefCountBy( delta: INTEGER); 
END; 



TParagraph 
typeStyles 



SUBCLASS OF TString 

TArray; { of TStyleChange ) 



heap: THeap; 

INTEGER; init ial TypeStyl e: TTypeStyle): TParagraph; 



{Creation/Destruction} 
FUNCTION TParagraph. CREATE( object: TObject; 

in it ial Size: 
PROCEDURE TParagraph. Free; OVERRIDE; 

{Debugging} 

PROCEDURE TParagraph. Fields( PROCEDURE Field(nameAndType: S255)); OVERRIDE; 
{$ENDC} 

{Overridden TString methods} 
PROCEDURE TParagraph. Drau( i: LONG INT; houhany: INTEGER): OVERRIDE; 
FUNCTION TParagraph. yidtKi: L0NGINT; houhany: INTEGER): INTEGER; OVERRIDE; 

{This method is used by TParagraph. Drau and TParagraph. Uidth to interpret the typeStyles array) 
PROCEDURE TParaaraph.DrauLine(startLP, endLP: INTEGER; fDrau: BOOLEAN; fUidth: BOOLEAN; 

VAR uidth. INTEGER; VAR stylelndex: INTEGER); 

{Type Style Haintainence} 
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PROCEDURE TParagraph. ChangeStyle( startLP, endLP: INTEGER; PROCEDURE Change(VAR typeSt vie: TTypeStyle) 

VAR styleOfStartLP: TTypeStyle); 

{These four routines all call ChangeStyle} 
PROCEDURE TParagraph. ChgFace{ startLP, endLP: INTEGER; 

neuOnFaces: {$IFC LibraryVersion <■ 20}TSeteface{$ELSEC}StyIe{$EN0C}; 

WAR styleOfStartLP: TTypeStyle); 
PROCEDURE TParagraph. ChgFontSize( st artLP, andLP: INTEGER; neuFontSize: Byte; 

WAR stylaOfStartLP: TTypeStyle); 
PROCEDURE TParagraph. ChgFontFamily( startLP, endLP: INTEGER; neuFont Family: Byte; 

VAR styleOfStartLP: TTypeStyle): 
PROCEDURE TParagraph. NeuStyle( startLP, endLP: INTEGER; neuTypeStyle: TTypeStyle); 

PROCEDURE TParagraph. CI eanRuns; 

PROCEDURE TParagraph. UpdateRuns(atLP: INTEGER; replacedChars: INTEGER; insertedChars: INTEGER); 

{Character Ma int a inence} 
PROCEDURE TParagraph. ReplParaf, fPos, numChars: INTEGER; 

otherPara: TParagraph; 
PROCEDURE TParagraph. ReplTString( **©$, numChars: INTEGER; 

otherString: TString; otherFPos, otherNumChars: INTEGER); 
PROCEDURE TParagraph. Repl PSt r ing( fPos, numChars: INTEGER; pStr. TPString); 
futilities} 

{BuildExt ant LRect takes an LPoint that indicates the baseline of the paragraph. It returns 
in extentLRect the bounding rectangle whose height is based on the tallest font in the 
paragraph and width is the width of the characters in the paragraph. Specifically: 



otherFPos, otherNumChars; INTEGER); 



tallestFont Info, leading; 



top :» baseLPt. v - tallestFont Info, ascent; 

bottom :• baseLPt. v * tallestFont Info, descent 

left :• baseLPt. h; 

right : ■ baseLpt. h ♦ paragraph. Width; } 
PROCEDURE TParagraph. BuildExtentLRectf baseLPt: LPoint; VAR extentLRect: LRect); 
FUNCTION TParagraph. FixLP( LP: INTEGER): INTEGER; 
PROCEDURE TParagraph. Set TypeStyleft Style: TTypeStyle); 
PROCEDURE TParagraph. St yleAt(lp: INTEGER; VAR typeStyle: TTypeStyle); 



{Word Selection) 
PROCEDURE TParagraph. FindUordBounds( or ig: INTEGER; VAR first, 
FUNCTION TParagraph. Qual if ies(pos: INTEGER): BOOLEAN; 

END; 



{Editable Paragraph} 
TEditPara ■ SUBCLASS OF TParagraph 
{ character stuff } 

bsCount: INTEGER; 
{ formatting stuff } 



last: INTEGER); 



nest Level: 
format: 

{ para Image stuff 
beingFiltered: 



INTEGER; 
TParaFormat; 



BOOLEAN; 



max Image: 
num Images: 
images: 

images: 



INTEGER; 
INTEGER; 
ARRAY [1. 

TLiSt; 



{ TRUE when a type style command has just been 
performed on this paragraph} 



1] OF TParalmage; {THIS MUST BE LAST FIELD !} 
{ Users my subclass TEditPara } 



{Creat ion/Destruct ion} 
FUNCTION TEditPara. CREATE( object: TObject; heap: THeap; initial Size: INTEGER; 

itsFomat: TParaFormat): TEditPara; 
PROCEDURE TEditPara. Free; OVERRIDE; 

{Debugging} 
[$IFC fParaTrace} 

PROCEDURE TEditPara. F iel ds( PRXEDURE F iel d( nameAndType: S255)); OVERRIDE; 
{$ENDC} 

{Special Editing} 
PROCEDURE TEditPara. Beg in Insert ion(atLP: INTEGER; size: INTEGER); 
PROCEDURE TEditPara. End Insert ion; 
FUNCTION TEditPara. GrouS ize: INTEGER; 
PROCEDURE TEditPara. Insert 0neChar(ch: CHAR; atLP: INTEGER); 

{Utility} 

PROCEDURE TEditPara. Set TypeStyle(t Style: TTypeStyle); OVERRIDE; 

{Para Image Maintenance} 
PROCEDURE TEditPara. Each Image( PROCEDURE ImageProc( para Image: TParalmage)); 
PROCEDURE TEditPara. Del Irnagef del Image: TParalmage; fFree: BOOLEAN); 



PROCEDURE TEditPara. Ins Irnagef para Image: TParalmage}; 
PROCEDURE TEditPara. Del lmglF( FUNCTION ShouldDelete( para Image: 
END; 



TParalmage): BOOLEAN); 



TLinelnfo « SUBCLASS OF TObject 



val id: 


BOOLEAN; 


startLP: 


INTEGER; 


1 astDraunLP: 


INTEGER, 


endLP: 


INTEGER; 


1 ineLRect: 


LRect; 


1 IneAscent: 


INTEGER; 



{last character in line to draw: may omit trailing spaces] 
{last character in line: equals next 1 ine Info. startLP - 1} 



FUNCTION TLinelnfo. CREATE( object: TObject; heap: THeap): TLinelnfo; 

{$IFC fParaTrace} 

PROCEDURE TLinelnfo. F iel ds{ PROCEDURE F iel d( nameAndType: S255)); OVERRIDE; 

{SENDC} 

{Used by subclassers who don' t 1 ike the way the hil ite/update 
rectangle is chosen so they can ovarrride it} 

FUNCTION TLinelnfo. LeftCoordforoposedLeftPixel: LONGINT): LONGINT; 
FUNCTION TLinelnfo. RightCoordTproposedRightPixel: LONGINT): LONGINT; 
END; 

TParalmage - SUBCLASS OF T Image 
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paragraph: 
height: 

1 ineList: 
changed: 
t ickCount: 
start LP: 
endLP; 



text Image: 
uesOffset: 



TEditPara; 
INTEGER; 

TList; 

BOOLEAN; 

INTEGER; 

INTEGER; 

INTEGER; 



TText Image; 
BOOLEAN; 



{ pixel height of the paragraph} 

{ of TLinelnfo} 

{ incremented (mod MAXINT) every time image is drawn } 

{ uhile drawing, this is the LP of the beginning of the next line 
uhich, when drawing is finished, may be in another image if the 
paragraph is spl it } 
{ the text Image that this image belongs to } 
{ used by Building block to determine when to inval idate} 



{Creat ion} 
FUNCTION TPara Image. CREATE( object: TObject; heap: THeap; itsVieu: TVieu; 

itsParagraph: TEditPara; itsLRect: LRect; 
1 ineTop: LONG INT; 1 ineLeft: LONG INT): TPara Image; 
PROCEDURE TPara Image. Free; OVERRIDE; 

{Debugging} 
£$IFC fParaTrace} 

PROCEDURE TPara Image. Fields( PROCEDURE F iel d( nameAndType: S2S5)); OVERRIDE; 
{SENDC} 

{Rout ines} 
PROCEDURE TParalmage. ComputeL ine Info( curt. Ine: TLinelnfo; maxLineLen. INTEGER; 

VAR nextLP: INTEGER; VAR IRectNeeded: LRect); 
FUNCTION TParalmage. D fit Line In fo(i ineTop: LONGINT; 1 ineLeft: LONGINT): TLinelnfo; 
PROCEDURE TPara Image. DrauLine( start LP: INTEGER; fDrau: BOOLEAN; 

stopWidth, urapWidth: INTEGER; 
VAR 1 ineklidth, lastToDrau, endLP: INTEGER); 
DrawParaImage(l imitLRect: LRect; startLP: INTEGER; drawAction: TDrawAction; 
inval Bits: BOOLEAN; VAR drawnLRect: LRect); 
PROCEDURE TParalmage. Draw; OVERRIDE; 
PROCEDURE TParalmage. FastDrauLine{ startLP, endLP; INTEGER; fDrau: BOOLEAN; fWidth BOOLEAN; 

VAR width INTEGER; VAR stylelndex: INTEGER); 
FUNCTION TParalmage. GetFormat: TParaFormat; 

PROCEDURE TParalmage. LineWithLPt(pt: LPoint; VAR 1 ine Index: INTEGER; VAR 1 ine Info: TLinelnfo); 
PROCEDURE TParalmage. LocateLP( LP: INTEGER: VAR 1 ine Index: INTEGER; VAR pixel: LONGINT); 
FUNCTION TParalmage. LpUithLPt(pt: LPoint): INTEGER, 
PROCEDURE TParalmage. OffSet By( del taLPt: LPoint); OVERRIDE; 
FUNCTION TParalmage. ParaTextWidth( startLP, endLP-. INTEGER): INTEGER; 
PROCEDURE TParalmage. RedrauLines(startL ine: INTEGER; endLine: INTEGER); 
FUNCTION TParalmage. SeesSameAs( image: T Image): BOOLEAN; OVERRIDE; 



PROCEDURE TParalmage. 



(val idat ion/inval ldation procs} 

PROCEDURE TParalmage. Inval LinesWith( startLP, endLP: INTEGER); 
PROCEDURE TParalmage. Ad JustLineLPs(atLP, deltaLP: INTEGER); 
END; 



{ MULTI-PARAGRAPH SUBCLASSES } 



TStyleSheet 
formats: 



SUBCLASS OF TObject 
TList; {of TParaFormat} 



{Creation} 
FUNCTION TStyleSheet. CREATE( object: TObject; heap: THeap): TStyleSheet; 
PROCEDURE TStyleSheet. Free; OVERRIDE; 

{Installs Default paraFormat into formats list} 
PROCEDURE TStyleSheet. InitDefault; 



{Debug; 



{SIFC fParaTrace} 

PROCEDURE TStyleSheet. F iel ds( PROCEDURE F iel d( nameAndType: S255)); OVERRIDE; 

{SENDC} 

END; 

TText Range - SUBCLASS OF TObject 
firstPara: TEditPara; 
first Index: LONGINT; 
first LP: INTEGER; 

lastPara: TEditPara; 
last Index: LONGINT; 



lastLP: 

{Creat ion} 
FUNCTION 



INTEGER; 

TTextRange. CREATE( object: TObject; heap: THeap; 

beginPara: TEditPara; beginlndex: LONGINT; beginLP: INTEGER; 
endPara: TEditPara; endlndex: LONGINT; endLP: INTEGER): TTextRange; 



{$$? $araTrace} 

PROCEDURE TTextRange. F iel ds( PROCEDURE F iel d( nameAndType: S255)); OVERRIDE; 

{SENDC} 

{AdjustBy adjust the fields of TTextRange by the value of delta (where delta is in LPs}} 
PROCEDURE TTextRange. Ad justBy( delta: INTEGER); 
ENO; 

TText ■ SUBCLASS OF TObject 

paragraphs: TList; {of TEditPara } 
st yl eSheet : TSt yl eSheet; 



txtlmgList: TList; 



{of TText Images that point to this text; 
IHPORTANT: If the multiple linked text Image feature is used as described in 
TText Image below, the application should only store the 
head text image in this list. This list is intended for 
text Images that ere viewing the same text object independently 
( ie in different panels)} 

FUNCTION "TText. CREATE( ob jecU TObject; heap: THeap; itsStyl eSheet: TStyleSheet): TText; 

{Dflt Text Image can be called after CREATE to create and return a single text Image. It also 
creates one empty paragraph using the first paraFormat in SELF, stylesheet. It installs the 
text Image in txtlmgList and the paragraph in paragraph*. This routine calls 
text Image. Recompute Images to set up the first paralmage.} 

FUNCTION TText. Dflt Text Image( view: TViev, imageLRect: LRect; imglsGrouable: BOOLEAN): TText Image; 
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DTEXT. TEXT 



Page 



351 -- 
552 ~ 
533 — 

554 — 

555 — 

356 — 

357 ~ 
338 — 
359 ~ 
340 ~ 
541 -- 
342 ~ 

545 — 

344 --. 

345 — 

546 — 

547 — 

348 — 

349 — 

350 — 

551 -- 

552 ~ 
555 — 

554 ~ 

555 ~ 

556 — 

357 — 

358 — 

359 — 

360 — 

361 — 
562 — 
565 — 

564 — 

565 -- 

566 — 

567 — 

568 — 

569 — 

570 — 

571 — 

572 — 
575 — 

374 — 

375 — 

376 — 
577 — 

378 — 

379 — 

380 — 
581 — 
382 — 
385 ~ 

584 — 

585 — 

586 — 

387 — 

388 — 

389 — 

390 -- 

391 — 
592 — 
595 — 

394 — 

395 — 

396 — 
597 — 
398 — 
599 — 

400 — 

401 ~ 

402 — 
405 — 

404 — 

405 ~ 

406 ~ 

407 — 

408 -- 

409 — 

410 — 

411 ~ 

412 — 

413 — 

414 — 

415 — 

416 — 

417 — 

418 ~ 

419 — 

420 — 

421 — 

422 ~ 

423 — 

424 — 

425 — 

426 -- 

427 — 

428 — 

429 — 

430 — 

431 — 

432 — 

433 — 

434 — 
455 — 

436 — 

437 — 

438 — 

439 — 

440 — 



{TText. Free frees all paragraphs that belong to this taxt objact and all text Images that 
reference this taxt object} 
PROCEDURE TText. Free; OVERRIDE: 
PROCEDURE TTaxt. FraaSal f( fraaParas: BOOLEAN); 

LS$% $araTrace} 

PROCEDURE TText. Field$( PROCEDURE FielcKnameAndType: S255)); OVERRIDE; 

i^ENDC} 

[C|I1$ to textlmge proes get routed through these} 
PROCEDURE TText. ChangeSellnOt he rPanels( text Select ion: TTextSelection); 
PROCEDURE TTaxt. Del Pa ra( del Para: TEditPara; fFree: BOOLEAN); 
PROCEDURE TText. Draw; 

PROCEDURE TTaxt. HiliteRange(h ighTrans it: THighTransit; textRange: TTextRange; uholePara: BOOLEAN); 
PROCEDURE TText. Hil iteParagraphs(h ighTrans it: THighTransit; 

start Index: LONGINT; startLP: INTEGER; 

endlndex: LONGINT; andLP: INTEGER: uholePara: BOOLEAN); 
PROCEDURE TText. InsParaAfter(axist ingPara: TEditPara; neuPara: TEditPara); 
PROCEDURE TText. Inval idatr, 

PROCEDURE TText. HartcChangeeK textRange: TTextRange); 
PROCEDURE TText. Recompute Images; 

FUNCTION TText. SelectAll( text Image: TText Image): TTextSelection; 
END; 



TText Image - SUBCLASS OF T Image 



text: 
imageList: 
t ickCount: 
grousDynamical 1 y: 

minHeight: 



forme rfiottom: 

updateLRect: 

firstLinePixel: 
useFlrstPlxel: 



TText; 
TList; 
INTEGER, 
BOOLEAN; 

INTEGER, 



LONGINT; 

LRect; 

LONGINT; 
BOOLEAN; 



[complete list of paragraphs} 

(para Images for some range of paragraphs in text} 

{TRUE — > extent LRect bottom grows as more text entered; 

FALSE -> text is truncated at last 1 ine that fits} 
(the minimum height to shrink (if grousDynamical ly-TRUE); 

defaults to height of original extentLRect} 

{Used by Invalidate when the displayed paragraphs get shorter 
and text at and needs to be erased} 
{" " " "} 

{Used by Text BB to 1 lmit what gets erased on first update 1 ine} 



{ The following fields support multiple linked text images displaying a single text object, 
where the text "flows" from one box to the next. APPLICATIONS ARE RESPONSIBLE FOR 
MAINTAINING THESE FIELDS. This Building Block uses these fields for drauing, etc. 
All text images in a chain should have grousDynamical ly set to FALSE (except possibly 
for the last text image in a chain). 
For applications that DO NOT use this feature, the fields will always be as follows: 

startLP - 0; 

endLP ■ LP of last character in last paragraph; (if growsDynamically ■ TRUE) 

LP of last character that fit in extentLRect; (if growsDynamically - FALSE) 

prevTxtlmg, nextTxtlmg ■ NIL; 

headTxt Img - SELF; 



} 



tailTxtlmg - SELF; 



first Index: 

startLP: 

endLP: 



LONGINT; 
INTEGER; 
INTEGER; 



prevTxt Img: TText Image; 

nextTxtlmg: TText Image; 

headTxt Img: TText Image; 

tailTxtlmg: TText Image; 



index of paragraph at SELF. imageList. First} 
startLP of paragraph at SELF. imageList. First} 
|endLP of paragraph at SELF. imageList. Last} 

for linking text Images that display different parts of } 

the same text object, eg: columns} 
points to first text image in this list} 
points to last text image in this list} 



{Creat ion} 
FUNCT ION 



TText Image. CREATE( object: TObject; heap: THeap; itsView: TVieu; 

itsLRect: LRect; itsText: TText; isGrouable: BOOLEAN): TText Image; 

{TText Image. Free frees all text images and their para Images in the text image chain. 
It does NOT free any paragraphs, text objects, or paraFormats. Call this only once 
for each taxt image chain (NOT for each text image in the chain). Note that TText. Free 
frees its text Images so calling this routine is not necessary in most cases} 

PROCEDURE TText Image. Free; OVERRIDE; 

{TText Image. FreeOneText Image frees just one text image from the chaia It pays no attention 
to 1 inks or whether this is the head text image. Maintenance of these fields must be 
handled by the caller before call ing this routine. Those who do not use 1 inked text images 
should always call TText Image. Free above, NOT this routine} 

PROCEDURE TText Image. FreeOneText Image; 

{Debugging} 
F$IFC fParaTrace} 

PROCEDURE TText Image. Fields( PROCEDURE FielcKnameAndType: S255)); OVERRIDE; 
{JENDC} 

{Drauing} 
PROCEDURE TText Image. Oraw; OVERRIDE; 
PROCEDURE TText Image. Draw Images( fDraw: BOOLEAN); 
PROCEDURE TText Image. DrawOr Inval (inval Bits: BOOLEAN); 
PROCEDURE TText Image. HiiiteText(highT ran* it: THighTransit; 

start Index: LONGINT; startLP: INTEGER; 

endlndex: LONGINT; endLP: INTEGER; wholePara: BOOLEAN); 

{Locating} 
PROCEDURE TText Image. FindParaAndLp(LPt: LPoint; VAR para Image: TPara Image; 

VAR para Index: LONGINT; VAR aLP: INTEGER); 
FUNCTION TText Image. F indText Image( VAR mouseLPt: LPoint; VAR first Txt Img: TText Image): TText Image, 
FUNCTION TText Image. ImageBottont LONGINT; 

PROCEDURE TText Image. Get ImageRange{ first Index: LONGINT; VAR firstLP: INTEGER; 

last Index: LONGINT; VAR lastLP: INTEGER; 
VAR first Image, last Image: TPara Image); 
FUNCTION TText Image. Image*) it h( paragraph: TEditPara; lp: INTEGER): TParalmage; 
PROCEDURE TText Image. MousePressf mouseLPt: LPoint); OVERRIDE; 
PROCEDURE TText Image. Of fsetBy( del taLPt: LPoint); OVERRIDE; 



{Image maintenence} 
PROCEDURE TText Image. Add Image{ pa ra Image: TPa ra Image) ; ^ 
PROCEDURE TText Image. Del ImagesUiiKdelPara: TEditPara); 
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441 — PROCEDURE TText Image. InsertNeuPara( exist ingPara, neuPara: TEditPara); 

442 -- PROCEDURE TText Image. InvalAll; 

443 — PROCEDURE TText Image. Invalidate; OVERRIDE: {Invalidate changed 1 ineLRects in changed paraimages] 
444— PROCEDURE TText Image. MarkChangeeK start Index: LONGINT; startLP: INTEGER; 

445 ~ end Index: LONGINT; endLP: INTEGER); 

446— FUNCTION TText Image. NeuText Select ion( first Para: TEditPara; firstlndex: LONGINT; first LP: INTEGER; 

447 — lastPara: TEditPara; last Index: LONGINT; lastLP: INTEGER 

448 — ): TTextSelection; 

449— PROCEDURE TText Image. Recompute Images( drauAct ion: TDrauAct ion; invalBits: BOOLEAN); 

450— PROCEDURE TText Image. Res ize(neuExtent: LRect): OVERRIDE; 

451— FUNCTION TText Image. SeesSameAs( image: T Image): BOOLEAN; OVERRIDE; 

452 — 

453 — {Byr.default SetFirst Index just sets firstlndex to 0, but subclassers may override this 

454 — if they uant the display to start from other than the first paragraph] 

455 — PROCEDURE TText Image. SetFirst Index; 

456 — 

457 — {These routines are provided so that users can subclass the appropriate class and 

458 — then override these methods so that the building block uill create the user' s subclass 

459 — when generating nmu instances of that class. } 

460— FUNCTION TText Image. NeuEditPara( in it ial Sire: INTEGER; itsFormat: TParaFormat): TEditPara; 

461— FUNCTION TText Image. NeuParaImage( itsParagraph: TEditPara; itsLRect; LRect; 

462— 1 ineTop: LONGINT; 1 ineLeft: LONGINT): TPara Image; 

463— FUNCTION TText Image. NeuText Image< heap: THeap; itsVieu: TVleu; itsLRect: LRect; 

464— itsText: TText; isGrouable: BOOLEAN): TText Image; 

465— FUNCTION TText Image. Txt ImgForCl ipBoard( heap: THeap; itsVieu: TVievr, itsLRect: LRect; 

466— itsText: TText; isGrouable: BOOLEAN): TText Image; 

467 — END; 

468 — 

469 — 

470 — {CI ipboard Text Vieu) 

471 — TText Vieu • SUBCLASS OF TVieu 

472 — text Image: TText Image; 

473 — valid BOOLEAN; {If FALSE, calls Recompute before Drauing} 

474 __ 

475 — {Creation} 

476— FUNCTION TTextVieu. CREATE( object: TObject; heap: THeap; itsPanel: TPanel; itsExtent: LRect) 

477 — : TTextVieu; 

478 



479 — {Debugging} 

480 — fJIFC fParaTrace} 

481 — PROCEDURE TTextVieu. Fields( PROCEDURE Field(nameAndType: S255)); OVERRIDE; 



482 — {SENDC} 

483 — 

484 — {SIFC fUseUnivText} 

485 — PROCEDURE TTextVieu. CreateUniversal Text; OVERRIDE; 

486 — {SENDC} 

487— PROCEDURE TTextVieu. Drau; OVERRIDE; 

488 — PROCEDURE TTextVieu. HousePress(mouseLPt: LPoint); OVERRIDE; 

489 — END; 

490 — 

491 — 

492 — {$1FC fUseUnivText} 

493 — TTextUriteUnivText ■ SUBCLASS OF TTKUriteUnivText 
494— textSelection: TTextSelection; 

495 — currlndex: LONGINT; 

496 — currPara: TEditPara; 

497 — currLP: INTEGER; 

498 — currStyle Index: INTEGER; 

499 — currTStyles: TArray; 

500 — {Creation} 

501— FUNCTION TTextUriteUnivText. CREATE( object: TObject; heap: THeap; 

502 — itsString: TString; itsDataSize: INTEGER; 

503 — itsTextSel: TTextSelection): TTextUriteUnivText; 

504 — 

505 — {Debugging} 

506 — {SIFC fParaTrace} 

507— PROCEDURE TTextUriteUnivText. Fields( PROCEDURE F iel d( nameAndType: S255)); OVERRIDE; 

508 — {JENDC} 

509 — 

510— PROCEDURE TTextUriteUnivText. Fill Paragraph; OVERRIDE; 

511 — END; 

512 — {SENDC} 

513 — 

514 — 

515 — TTextSelection • SUBCLASS OF TSelection 

516 — text Image: TText Image; 

517 — textRange: TText Range; 

518 — isUordSelection: BOOLEAN; 

519 — isParaSelection: BOOLEAN; 

520 — vieuTick: INTEGER; 

521 — amTyping: BOOLEAN; 

522 — currTypeStyle: TTypeStyle; 

523 — 

524— FUNCTION TTextSelection. CREATE( object: TObiect; heap: THeap; itsVieu: TVieu; 

525 — itsText Image: TText Image; itsAnchorLPt: LPoint; 

526 — beginPara: TEditPara; beginlndex: LONGINT; beginLP: INTEGER; 

527 — endPara: TEditPara; end Index: LONGINT; endLP: INTEGER 

528 — ): TTextSelection; 

529 — 

530 — 

531 — {Debugging} 

532 — f$IFC fParaTrace} 

533— PROCEDURE TTextSelection. F iel ds( PROCEDURE F iel d{ nameAndType: S2S5)); OVERRIDE; 

534 — {SENDC} 

535 — 

536 — {Commands} 

537— PROCEDURE TTextSelection. KeyText; 

538— FUNCTION TTextSelect ion. NeuCommand( cmdNumber: TCmdNumber): TCommand; OVERRIDE; 

539— FUNCTION TTextSelect ion. NeuStyleCmd( heap: THeap; cmdNumber TCmdNumber, 
540 — text Image: TText Image) : TCommand; 

541— FUNCTION TTextSelect ion. NeuCutCopyCmd( heap: THeap; cmdNumber TCmdNumber 

542 — text Image: TText Image): TCommand; DEFAULT; 

543— PROCEDURE TTextSelection. St yleFromContext; DEFAULT; 

544— PROCE0URE TTextSelect ion. DoChangeStyIe( cmdNumber. TCmdNumber, paragraph: TParagraph; 

545 — firstLP: INTEGER; lastLP: INTEGER; VAR neuStyle: TTypeStyle); 

546— PROCEDURE TTextSelect ion. ChangeStyle{ cmdNumber. TCmdNumber); DEFAULT; 

S48 — PROCEDURE TTextSelect ion. ChangeT«xt( PROCEDURE TextEdit; PROCEDURE Adjust); DEFAULT; 

549— FUNCTION TTextSelection. CopySel f( heap: THeap; vieu: TVieu): THultiParaSelect ion; DEFAULT; 

550— PROCEDURE TTextSelect ion. CutCopy(d ipSelect ion: TSelection; deleteOriglnal: BOOLEAN); DEFAULT; 
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PROCEDURE TTextSel ect ion. Del eteAndFree; DEFAULT; 
FUNCTION TTextSel ect ion. Del eteBut Save: TText; DEFAULT; 

{Highlighting} 
PROCEDURE TTextSel ect ion. Highl ight(highTran$it: THighTransit); OVERRIDE; 

{Selecting} 

FUNCTION TTextSel ect ion. Become Insert ionPoint; T Insert ionPoint; 

PROCEDURE TTextSel ect ion. GetHysteresis(VAR hysterPt: Point); OVERRIDE; 

PROCEDURE TTextSel ect ion. MousePress(mouseLPt: LPoint); OVERRIDE; 

FUNCTION TTextSel ect ion. Sel Size; INTEGER; ABSTRACT; 

{ Inval idat ion} 
PROCEDURE TTextSel ect ion. Inval idate; DEFAULT; 

{Generate Text Selection in another panel ( ie. another Text Image)} 
FUNCT ION TTextSel ect ion. Repl xcateForOtherPanel ( itsText Image: TText Image) : TTextSel ect ion; 
END; 

T Insert ionPoint ■ SUBCLASS OF TTextSel ect ion 

typingCmd: TTypingCind; (the current typing command (if user is typing)} 

styleCmdNumber INTEGER; {Set to cmdNumber when a type style item is chosen, 

set to zero otherwise} 
neuestLP: INTEGER; {the lp position as updated between KeyPause' s} 

justRetumed: BOOLEAN; {flag that prevents redundant update in KeyPause} 

nextHighTransit: THighTransit; 

next Trans it Time: LONGINT; 

{Creat ion /Freeing} 

FUNCTION TInsert ionPoint. CREATE( object: TObject; heap: THeap; itsVieu: TVieu; 

itsText Image: f Text Image; itsAnchorLPt: LPoint; itsParagraph: TEciitPara; 

its Index: LONGINT; itsLP: INTEGER): TInsert ionPoint; 

{Debugging} 
{$IFC fParaTrace} 

PROCEDURE T Insert ionPo int. F iel ds( PROCEDURE F iel d( nameAndType: S255) ) ; OVERR IDE; 
{SENDC} 

{Commands} 

PROCEDURE T Insert ionPo int. Idl eBeg in( cent iSeconds: LONGINT) ; OVERR IDE; 

PROCEDURE TInsert ionPoint. IdleCont inue( cent iSeconds: LONGINT); OVERRIDE; 

PROCEDURE TInsert ionPoint. Idl eEnd( cent iSeconds: LONGINT); OVERRIDE; 

FUNCTION TInsert ionPoint. NeuCutCopyCmdf heap: THeap; cmdNumber TCmdNumber; 

text Image: TText Image): TCommand; OVERRIDE; 

PROCEDURE T Insert ionPoint. St yleFromContext; OVERRIDE; 

{Editing} 
PROCEDURE TInsert ionPoint. CutCopv(cl ipSel ect ion: TSelection; deleteOriginal: BOOLEAN); OVERRIDE; 
PROCEDURE TInsert ionPoint. Fin ishPaste(cl ipSel ect ion: TSelection; pic: PicHandle); 
PROCEDURE TInsert ionPoint. Insert Text (text: TText; isParaSelect ion: BOOLEAN; isWordSelect ion: BOOLEAN; 

universal Text: BOOLEAN), 
PROCEDURE TInsert ionPoint. KeyBack( fWord: BOOLEAN); OVERRIDE; 
PROCEDURE TInsert ionPoint. KeyChatfch: CHAR); OVERRIDE; 
PROCEDURE TInsert ionPoint. KeyCl ear OVERRIDE; 
PROCEDURE TInsert ionPoint. KeyForuard( fUord: BOOLEAN); OVERRIDE; 

{Selecting} 
PROCEDURE TInsert ionPoint. Mouseh*ove(mouseLPt: LPoint): OVERRIDE; 
PROCEDURE TInsert ionPoint. MousePress(mouseLPt: LPoint); OVERRIDE; 
PROCEDURE TInsert ionPoint. MouseRel ease; OVERRIDE; 

END; 

TOneParaSelect ion • SUBCLASS OF TTextSel ect ion 
anchorBegin: INTEGER; 
anchorEnd: INTEGER; {anchorBegin <> anchorEnd iff double or triple click] 

{Creation/Freeing} 
FUNCTION TOneParaSelect ion. CREATE( object: TObject; heap: THeap; itsVieu: TVieu; 

itsText Image: TText Image; itsAnchorLPt: LPoint; itsParagraph: TEditPara; 
its Index: LONGINT; oldLP: INTEGER; currLP: INTEGER): TOneParaSelect ion; 

{Debugging} 
f$IFC fParaTrace} 

PROCEDURE TOneParaSelect ion. F iel ds( PROCEDURE F iel d(nameAndType: S25S)); OVERRIDE; 
{SENDC} 



{Commands} 
PROCEDURE TOneParaSel 



ect ion. Styl eFromContext; OVERRIDE; 



{Editing} 

FUNCTION TOnePa raSel ect ion. CopySel f( heap: THeap; vieu: TVieu): TMul t iParaSel ect ion; OVERRIDE; 

PROCEDURE TOnePa raSel ect ion. Del eteAndF ree; OVERR IDE; 

FUNCTION TOneParaSel ect ion. Del eteButSave: TText; OVERRIDE; 

{ Sel ect ing} 
PROCEDURE TOnePa raSel ect ion. NouseMove< mouseLPt : LPo int ) ; OVERR IDE; 
PROCEDURE TOneParaSel ect ion. MouseRel ease; OVERRIDE; 

END; 

TMul t iParaSel ect ion - SUBCLASS OF TTextSel ect ion 
anchorPara: TEditPara; 

anchor Index: LONGINT; 

anchorBegin: INTEGER; ■ 

anchorEnd: INTEGER; {anchorBegin <> anchorEnd iff double or triple click} 

FUNCTION ^"tiParaSel ect ioa CREATE( object: TObject; heap: THeap; itsVieu: TVieu; 

itsText Image: TText Image; itsAnchorLPt: LPoint; 

beginPara: TEditPara; beg in Index: LONGINT; beginLP: INTEGER; 
endPara: TEditPara; end Index: LONGINT; endLP: INTEGER; 
beginlsAnchon BOOLEAN): TMul t iParaSel ect ion; 



{Debusing,} 



raTrace} 
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678 
679 
680 
681 
682 
683 
684 
685 
686 
687 
688 
689 
690 
691 
692 
693 
694 
695 
696 
697 
698 
699 
700 
701 
702 
703 
704 
705 
706 
707 
708 
709 
710 
711 
712 
713 
714 
715 
716 
717 
718 
719 
720 
721 
722 
723 
724 
725 
726 
727 
728 
729 
730 
731 
732 
733 
734 
735 
736 
737 
738 
739 
740 
741 
742 
743 
744 
745 
746 
747 
748 
749 
750 
7S1 
752 
753 
754 
755 
756 
757 
758 
759 
760 
761 
762 
763 
764 
765 
766 
767 
768 
769 
770 



PROCEDURE 
{SENDC} 

{Commands} 
PROCEDURE 

{Editing} 
FUNCTION 
FUNCTION 
PROCEDURE 
FUNCTION 

{SeTect ing} 
PROCEDURE 
PROCEDURE 

END; 



THul t iParaSel ect ion. F iel ds( PROCEDURE F iel d( nameAndType: S2S5) ) ; OVERR IDE; 



THul t iParaSel ect ion. Styl eFromContext; OVERRIDE; 

THul tiParaSel ect ion. CopySel f( heap: THeap; view: TVieu): THul tiParaSel ect ion; OVERRIDE; 

THul tiParaSel ect ion. Delete(s*velt: BOOLEAN): TText; 

THul t iParaSel ect ion. Del eteAndFree; OVERRIDE; 

THul tiParaSel ect ion. Del eteBut Save: TText; OVERRIDE; 

THul tiParaSel ect ion. HouseHove<mouseLPt: LPoint); OVERRIDE; 
THul t iParaSel ect ion. HouseRel ease; OVERR IDE; 



TClearTextCad 

{Variables} 
savedText: 
text: 



{ COMMANDS 

SUBCLASS OF TCommand 



TText; 
TText; 



(save the cleared text for undo} 
{the text object ue are clearing} 



{Creation} 
FUNCTION {TCI earTextCmd }CRE AT E( object: TObject; heap: THeap; itsCmdNumber. TCmdNumber 

its Image: T Image; itsTaxt: TText): TCI earTextCmd; 

PROCEDURE TCI earTextCmd Free; OVERRIDE; 
{S1FC fParaTrace} 

PROCEDURE TCI earTextCmd. F iel ds( PROCEDURE F iel d( nameAndType: S255)); OVERRIDE; 
{SENDC} 
{Command Execution} 

PROCEDURE TCI earTextCmd. Commit; OVERRIDE; 

PROCEDURE TCI earTextCmd Perform( cmdPhase: TCmdPhase); OVERRIDE; 

END; 

TStyleCmd - SUBCLASS OF TCommand 



{Variables} 




text: 


TText; 


textSelection: 


TText Sel ect ion; 


firstFiltPara Index: 


LONG INT; 


lastFiitPara Index: 


LONGINT; 


filtFirstLP: 


INTEGER; 


filtLastLP: 


INTEGER; 


currF il teredPara: 


TEditPara; 


filteredStyles: 


TArray; 



{handle to most recently filtered paragraph} 

{changed type styles of most recently filtered paragraph} 

{Creation} 
FUNCTION TStyleCmd. CREATE( object: TObject; heap: THeap; itsCmdNumber TCmdNumber; 
its Image: T Image; 

itsFirst Index: LONGINT; itsLast Index: LONGINT; 
itsLPFirst: INTEGER; itsLPLast: INTEGER; 
itsSelect ion: TTextSelect ion): TStyleCmd; 

PROCEDURE TStyleCmd. Free; OVERRIDE; 
{SIFC fParaTrace} 

PROCEDURE TStyleCmd. F iel ds( PROCEDURE F iel d( nameAndType: S255)); OVERRIDE; 
{SENDC} 
{Command Execution} 
PROCEDURE TStyleCmd. Commit; OVERRIDE; 
PROCEDURE TStyleCmd. FilterAndDo( actual Object: TObject; 

PROCEDURE DoToObject(filteredObject: TObject)); OVERRIDE; 
PROCEDURE TStyleCmd Perform(cmdPhase: TCmdPhase); OVERRIDE; 
END; 

TTextCutCopy - SUBCLASS OF TCutCopyCommand 

{Variables} 
text: TText; 

{Creation} 

ION TTextCutCopy. CREATE( object: TObject; heap: THeap; itsCmdNumber TCmdNumber 

its Image: T Image; 
isCutCmd: BOOLEAN; itsText: TText): TTextCutCopy; 



FUNCT IC 



PROCEDURE TTextCutCopy. Free; OVERRIDE; 
{SIFC fParaTrace} 

PROCEDURE TTextCutCopy. F iel ds( PROCEDURE F iel d( nameAndType: S2S5)); OVERRIDE; 
{SENDC} 
{Command Execution} 
PROCEDURE TTextCutCopy. OoCutCopyfcl ipSel ect ion: TSelection; deleteOriginal: BOOLEAN; 

cmdPhase: TCmdPhase); OVERRIDE; 
END; 

TTextPaste - SUBCLASS OF TPasteCommand 



{Variables} 

savedText: TText; 

pasteRange: TText Range; 

text: TText; 

origlsPara: BOOLEAN; 

origlseterefc BOOLEAN; 

clipIsPara: BOOLEAN; 



{The text range spanned by the pasted text} 



{Creation} 
FUNCTION 



TTextPaste. CREATE( object: TObject; heap: THeap; itslmage: TImage; 
itsText: TText): TTextPaste; 



PROCEDURE TTextPaste. Free; OVERRIDE; 
{SIFC fParaTrace} 

PROCEDURE TTextPaste. F iel ds( PROCEDURE F iel d( nameAndType: S255)); OVERRIDE; 
{SENDC} 
{Command Execution} 
PROCEDURE TTextPaste. Commit; OVERRIDE; „ ,„ JBU , 

PROCEDURE TTextPaste. DoPaste(cl ipSel ect ion: TSelection; pic: PicHandle; cmdPhase: TCmdPhase); 
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1 771 -- OVERRIDE; 

1 772 — END; 

1 773 ~ 

1 774 — 

1 775 — TTypingCmd . SUBCLASS OF TCommand 

1 776- 

1 777 ~ (Variables) 

1 778 — eavedText: TText; 

1 77S — text: TText; 

1 780 ~ nmuCharCount: INTEGER; 

1 781 — - nmuParaCount: INTEGER; 

1 782 — t- typingRange: TTextRange; (The text range spanned by the typed characters} 

1 783 — otherlnsPts: TList; 

1 784 — 

1 785 ~ (Creation) 

1 786— FUNCTION TTypingCmd. CREATE( object: TObject; heap; THeap; its Image: T Image; 

1 787 ~ itsText: TText): TTypingCmd; 

1 788 — 

1 789— PROCEDURE TTypingCmd. Free; OVERRIDE; 

1 790 — ($IFC fPeraTrace} 

1 791— PROCEDURE TTypingCmd. Fields( PROCEDURE F iel d( nameAndType: S255)); OVERRIDE; 

1 792 — (SENDC) 

1 793 — (Command Execution} 

1 794 — PROCEDURE TTypingCmd. Commit; OVERRIDE; 

1 795— PROCEDURE TTypingCmd. PerformCcmdPhase: TCmdPhase); OVERRIDE; 

1 796 — END; 

1 797 — 

1 798 — 

1 799 — VAR fParaTrace: BOOLEAN; 

1 800 — fText Trace: BOOLEAN; 

1 801 — 

1 802 — 

1 803 — IMPLEMENTATION 

1 804 — 

1 805 — (' 



1 806 



$1 UTEXT2. text 



Paragraph classes} 



1 807— $1 UTEXT3. text' (TStyfeSheet, TText, TText Image, TTextVieu} 

1 808— ($1 UTEXT4. text] (Text Selections and Commands} 

1 809 — •) 

1 810 — 

2 1 — 

2 2 — 

1 811— ($1 LibTK/UTEXT2. text} (Paragraph classes} 

3 1 — 

3 2 — 

1 812— ($1 LibTKAJTEXT3. text} (TStyleSheet, TText, TTextlmage, TTextVieu} 

4 1 — 
4 2 — 

1 813 — ($1 LibTK/UTEXT4. text} (Text Selections and Commands} 

1 814 — END. 

1 815 — 
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1. 1 ibtk/utext. TEXT 

2. LibTK/UTEXT2 text 

3. LibTK/UTEXT3. text 

4. LibTK/UTEXT4. text 



UTEXT. TEXT 



Page 



act ionDrau 
act lonlnval 
act ionNone 
Add Image 
AdjustBy 
Adjust LlneLPs 
amfyping 
anchorBegin 
anchorEnd 
anchor Index 
anchorPara 

-8- 
Become Insert ionP 
Beg in Insert ion 
beingf iltered 
bsCount 
BuildExtentLRect 

-C- 
changed 

ChangeRe f Count By 
ChangeSel I not her 
ChangeStyle 
ChangeText 
ChgFace 
ChgFontFamil y 
ChgFontSize 
cHorizMargin 
CleanRuns 
cl ipIsPara 
Commit 

ComputeLinelnfo 
CopySel f 
CREATE 

CreateUniversalT 
currfil teredPara 
curr Index 
currLP 
currPara 
currStyle Index 
currTStyt es 
currTypeStyie 
Cut Copy 
cVert Margin 

-D- 
Del ete 

DeleteAndFree 
Del eteBut Save 
Del Image 
Del ImagesWith 
Del ImglF 
Del Para 
DfltLinelnfo 
DfltText Image 
dfltTStyle 
DoChangeStyle 
DoCutCopy 
DoPaste 
Draw 

Drau Images 
DrauL ine 
DrauOrlnval 
DrauPara Image 

-E- 

Each Image 
End Insert ion 
endLP 

-F- 
Fast DrauL ine 
Fields 

Fill Paragraph 

FilterAndDo 

filteredStyles 

filtFirstLP 

filtLastLP 

FindParaAndLp 

F indText Image 

F indWordBounds 

FinishPaste 

firstFiltParalnd 

first Indent 

first Index 

firstLinePixel 

firstLP 

firstPara 

FixLP 

format 

formats 

forme rBot torn 

fParaTrace 

Free 

FreeOneText Image 
FreeSel f 
fTextTrace 

-G- 
GetFormat 



61* 
61- 

& 

309* 
268* 

521* 

618 

619* 

648* 

647 



558* 

184* 
163* 
157 
142' 



225* 

86* 
342* 
111- 
548* 
116* 
121*( 
119* 

44' 
125* 
758* 
697* 
246* 
549* 

81" 
501* 
485* 
710* 
495* 
497* 
496* 
498* 
499* 
S22* 
550" 

43* 



669* 
551* 

552* 
194* 
440* 
196* 
343* 
248* 
330* 
66 
544* 
746* 
770* 
103* 
420* 
107* 
421* 
252* 



193* 
185* 
204* 



255* 

83* 
507* 
510* 
726* 
711- 
708* 
709* 
427* 
429* 
148* 
601* 
706* 

69* 
292* 
371- 
293* 
291 
143* 
160* 
276 
367* 
799* 

95* 
789* 
411- 
335* 
800* 



649 

650 



:|ij 



546* ( 1) 



725*( 1) 769*( 1) 794*( 1) 



635*( 


1) 


668* ( 


1} 


93*{ 


1 


174*( 


1 


524*( 


1) 


582«( 


1) 



208 
622 



:(iJ 



235* 
653* 



279 
689 



•f 1) 
'•( 1) 



299* ( 1) 
*•( 1) 



714* 



324* 
737* 



*( 1) 398*( 1) A76*( 1) 
*( 1) 761*( 1) 786*( 1) 



600*( 1) 



637 



:| I] S:( ii 



254*( 1) 344*( 1) 419*( 1) 487*( 1) 
249* ( 1) 



228*( 1) 390*( 1) 



99 
533 



•( 1) 180*( 1) 210-f 1) 242*( 1) 286*f 1) 305*f 1) 
•( 1) 588-( 1) 628*( 1) 661*( 1) 694*( 1) 722-( 1) 



338*( 1) 
743-( 1) 



415 
766 



:fi) 



481* 
791« 



388*( 1) 



176*( 1) 238*( 1) 280*( 1) 334*( 1) 405*( 1) 692*( 1) 720*( 1) 741*£ 1) 764*( 1) 



2S7*( 1) 
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Page ID 



GetHysteresis SS9«f 11 

Gat ImageRange 431*1 11 

grousOynamically 362*{ 1) 

rouSize 186*( 1) 



-I 



headTxt Img 


594* 


height 


222* 


Highl ight 
HiliteParagraphs 


S5S* 


546* 


Mil it ©Range 


3*5* 


Hil iteText ^ 


4*2* 


- 

Idl eBeg in 


592* 


Idl eCont inue 


593* 


IdleEnd 


594* 


ImageBottom 


430* 


imageList 


}«• 


images 


171* 


ImageUith 


434* 


InitDefaul t 


283* 


Insert NeuPara 


441* 


InsertOneChar 


187- 


Insert Text 


602- 


Ins Image 


195* 


InsParaAfter 


349* 


INTRINSIC 


5* 


Inval Al 1 


442* 


Inval idate 


350* 


Inval LinesUith 


267* 


isParaSelect ion 


519* 


isWordSelect ion 


518* 



-J- 



just Returned 

-K- 

KeyBack 

KeyChar 

KeyClear 

KeyForuard 

KeyText 

-L- 
1 astDraunLP 
lastFiltParalnde 
1 ast Index 
lastLP 
last Para 
Left Coord 
left Indent 
1 ineAscent 
1 ineL ist 
1 ineLRect 
1 ineSpae ing 
LineUithLPt 
LocateLP 
IP 

LpWithLPt 
LRect 

-M- 
Mark Changed 
minHeight 
houseHove 
HousePress 
HouseRel ease 

-N- 
nest Level 
neuCharCount 
NeuCommand 
NewCutCopyCmd 
NeuEditPara 
newest LP 
neuParaCount 
NeuPara Image 
NeoStyle 
neuSt yl e 
NeuStyleCmd 
NeuText Image 
NeuTextSelection 
nextHighTransit 
next Trans it Time 
next Txt Img 

-0- 

OffSetBy 
OffsetBy 
origlsPara 
origlsltiord 
other InsPts 

-P- 
paregraph 
paragraphs 
ParafextUidth 
pasteRange 
Perform 
permanent 
prevTxt Img 

-Q- 
quad 

Oual ifies 
QuickDraw 

-R- 
Recompute Images 



576- ( 1) 



604* 
605* 
606* 
607* 
537* 



351* 
364- 
610* 
435* 

612* 



261* 
436* 
756* 
757* 
783* 



57" 

149" 

27« 



203*( 


1) 


707* 


1) 


295* 


1 


296* 


1 


294* 


1 


215* 


1) 


70* 


1) 


206* 


1) 


224* 


1 


205* 


1 


74* 


1 


258* 


1 


259* 


1) 


51* 


1) 


260* 


1) 


205 


1) 



159* 


' *•) 


780* 


li 


538* 


1 


541* 


1 


460* 


1) 


575* 


1 


781- 


1 


461- 


1 


123* 


1 


52* 


1 


539* 


1 


463* 


1 


446- 


1 


578- 


1 


579* 


1 


393* 


i l) 



221 


[ 1) 


313 


1 


262* 


1 


754* 


1 


698* 


1 


78* 


1 


392- 


t 1) 



443*( 1) 564*( 1) 



369 ( 1) 

444*( 1) 

640*( 1) 674-( 1) 

488*( 1) 560*( 1} 

641*( 1) 675* ( 1) 



S95*( 1) 



611*( 1) 



728* ( 1) 795* ( 1) 



68-( 1) 



352* ( 1) 449* ( 1) 
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RedrauLines 

re f Count 

Repl icateForOthe 

Rep] Para 

Repl PSt ring 

Repl TSt ring 

Resize 

Right Coord 

right Indent 

-S- 

savedText 

SeesSameAs 

Sel ectAl 1 

SelSize 

SetFirst Index 

SetTypeStyle 

somethingKind 

spaceAbovePara 

spaceBelouPara 

start LP 

StyleAt 

styl eCmdNumber 

Styl eFromContext 

stylesheet 

-T- 
tabs 

tailTxt Img 
TA1 ignment 
TArray 

TClearTextCmd 
TCommand 
TCut CopyCommand 
TOrauAct ion 
TEditPara 
text 

text Image 
text Range 
textSelect ion 
THighTransit 
t ickCount 
T Image 

T Insert ionPoint 
TLinelnfo 
TList 

TMultiParaSelect 
TObject 

TOneParaSelect io 
TParaFormat 
TParagraph 
TPara Image 
TPasteCommand 
T Select ion 
TSt ring 
TStvleChange 
TStyleCmd 
T StyleSheet 
TText 

TTextCutCopy 
TText Image 

TTextPaste 

TTextRange 

TTextSelect ion 

TTextVieu 

TTextUriteUnivTe 

TTKUriteUnivText 

TTxtTabDescripto 

TTypeStyle 

TTypingCmd 

TVieu 

Txt ImgForCl ipBoa 

txt ImgList 

typeStyles 

typingCmd 

typingRange 



-U- 



UABC 

UOrau 

UFont 

UOb ject 

updateLRect 

UpdateRuns 

useFirst Pixel 

UText 

UTKUniversalText 



263* 
77* 
567* 
129* 
133* 
131* 
450* 
216* 
71* 



68S 

264* 
353' 

561* 

455* 

8S* 

46* 

72* 

73* 

202* 

145* 

573* 

543* 

79* 



75* 
395* 

57 

75 
682" 
538 
731 

61* 
155* 
359 
231* 
517* 
494 
578 
226* 
220 
558 
200* 
171 
549 

65 
617* 

65* 

89* 
220* 
750 
515 

89 

SO* 
701* 

79 
312* 
734 
731* 
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466 
750* 
290* 
353 
471* 
493* 
493 

55* 

52 
572 
471 
465* 
316* 

90 
572 
782* 



32* 

28* 

25* 

23* 

369* 

126" 

372* 

1- 

30* 



753 ( 1) 778 ( 1) 
451*( 1) 



144*( 1) 190*( 1) 



227»( 1) 389*( 1) 



597»( 1) 632* ( 1} 665* ( 1) 
314-( 1) 




499 ( 1) 711 ( 1) 

542 ( 1) 596 ( 1) 682 ( 1) 701 ( 1) 775 ( 1) 



460 
779 



-Si] 



496 ( 1) 647 ( 1) 710 ( 1) 



705*( 1) 

361 •( 

358 

571* 

208 

224 

635 

200 

624 

81 

94 
237 



584 ( 1) 

248 ( 1) 

276 ( 1) 

646* ( 1) 

275 ( 1) 

160 ( 1) 257 ( 1) 

155 ( 1) 

434 ( 1) 462 ( 1) 



360 ( 1) 783 ( 1) 



718 ( 


1) 


275* 


1) 


324 


1) 


753 


1 


739 


1 


330 


1 


472 


1 


762 


1) 


301 


1 


448 


1 


477 


1) 


503 | 


1) 



279 { 


1) 


314 j 


1) 


359 1 


iS 


552 


1) 


755 ( 


l) 


778 ( 


1) 



637 
779 



358* 
516 



il 



517 ( i) 



494 



669 ( 1) 671 ( 1) 685 ( 1) 686 ( 1) 704 ( 1) 
392 ( 1) 393 ( 1) 394 ( 1) 395 ( 1) 399 ( 1) 429 ( 1) 464 ( 1) 

(i! 



754 
515 



1) 782 
1) 528 



567 ( 1) 571 ( 1) 617 ( 1) 646 ( 1) 705 ( 1) 



66 

775 



•18 



522 

787 



valid 
v ieuT ick 



_U- 



uasOffset 

Uidth 

wordwrap 



201 
520 



232* 

104- 
67« 



■iii 



473-( 1) 



xCoord 



56*( 1) 



•* End Xref: 264 id* s 468 rvfarcnces 



[421880 bytes/4735 id' s/43265 refs] 
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l 
2 
3 
4 
S 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 
58 
59 
60 
61 
62 
63 
64 
65 
66 
67 
68 
69 
70 
71 
72 
73 
74 
75 
76 
77 
78 
79 
80 
81 
82 
83 
84 
85 
86 
87 
88 
89 
90 
91 
92 
93 
94 
95 
96 
97 
98 
99 
100 
101 
102 
103 
104 
105 
106 
107 
108 
109 
110 



""\ 



($£♦} 
$E ERR1. 



TEXT} 



UUniversalText V0. 3 



SSETC ForOS : - TRUE } 

SDECL UithUObject} 

SSETC WithUObject :- TRUE} 



UNIT {SIFC WithUObject} 
* UTKUniversalText 
{SELSEC} 
UUniversalText 
{SENDC}; 

{SDECL 1$ Intrinsic} 

[SSETC 1$ Intrinsic :- TRUE} 

[SSETC WithUObject : - TRUE} 

{SIFC Is Intrinsic} 

INTRINSIC; 

{SENDC} 

{SIFC NOT WithUObject} 

{SSETC Libraryversion 
{SENDC} 

INTERFACE 

USES 

[JIFC WithUObject} 



[Note: TRUE/FALSE status MUST agree with below] 



[Note: TRUE/FALSE status MUST agree uith above} 



• 30 } [ 10 « 1. libraries; 13-1.3 libraries; 20 ■ Pepsi, 30 « Spring, etc. } 



{SU 1 ibtk?UOb ject} 
[SSETC fTrce : ■ ft) 



Trace} 
{SENOCl 

TSU 1 ibsm/UnitStd. obj } 
ttJ 1 ibsm/UnitHz. obj } 
NOT WithUObject} 
(SU 1 ibpl AIC1 ascal } 

sunt ■"■ 



fsu 

{SIFC NC 



{JIFC 

L 

{SELSEC} 
{SENI 



ibqd /Storage, obj } 

20} 

>j } 



{SENDC} 

Libi 

11-. 

1 ibqd/Quiek5rau. obj } 



raryversion <- 20] 
1 ibfm/FontNgr. ob; 



{SU 1 ib 
(SU lib 

be) 



ibqd/QuickOrau. obi 
fm/FontHgr. obj J 



} 



SU 1 ibos/SysCall.objJ 
SU 1 ibsuAlnitFmt. obj } 



[JU 1 ibsu/UnitCS. obj } 
k $U 1 ibum /Events, ob J } 
L $U 1 ibsu/Scrap. obj } 

{SDECL fUniversalTextTrace} 

{SIFC NOT WithUObject} 
{ SOECL fOebugHethods} 
{SSETC fOebugHethods : 



UObject, 



UnitStd, 
UnitHz, 

UC1 ascal, 
Storage, 



FontHgr, 
QuickOrau, 

OuickDrau, 
FontHgr, 

Syscal I , 

PMDecl, 

PrStdlnfo, 

UnitFmt, 

Unites, 

Events, 

Scrap; 



{Will be in PASLIB in Spring] 



FALSE} 



{SDECL fDbgObject} 



{SDECL fTrce} 
{SSETC fTrce : 



FALSE} 

FALSE} 



{SSETC fDbgObject 
{SENDC} 



{SSETC fUniversalTextTrace :• fTrce} 

{SDECL Pas teT race} 

(SSETC PasteTrece :• FALSE} 

TYPE 

(SIFC NOT WithUObject} 



{Must be FALSE} 

{Must be FALSE} 
{Set to FALSE for final 1 ibraries} 

{Normal} 

{Generates READLN asking for tracing during Urite UT) 



S2S5 - 

THeap ■ 
TCI ass 



STRING{ 255,, 
Ptr, {alias for THz) 
{al ias for TPSI 



Ptr, 



ias for TPSI iceTabl e in UCI ascal } 



TCol 1 ecHeader > RECORD 



cl assPt r 

size: 

dynStart: 

holeStart: 

holeSize: 

hoi eSt d: 

END; 



TCI ass; 

LONG INT; 

INTEGER; 

INTEGER; 

INTEGER; 

INTEGER; 



.number of real elements, not counting the hole} , 

bytes from the class ptr to the dynamic data; MAX INT if none a loued] 

*0 ■ at the beginning, size • at the end; MAXINT - none alloued] 
measured in hembertytes units} 
if the holeSize goes to 0, hou much to grou the collection by] 



TFastString ■ RECORD {only access ch[ i] uhen hole is at end & TString is not subclassed] 

header TCol 1 ecHeader; 

Ch: PACKED ARRAY[ 1. . 32740] OF CHAR; 

END; 
TPFastString » TTFastString; 
THFastString - TTPF«tString; 



TUTObject - SUBCLASS OF NIL 



FUNCTION 
FUNCTION 
PROCEDURE 



TUTObject. 
TUTObject. 
TUTObject. 



CREATEfheap: THeap): 
Heap: THeap; 
FreeObject; DEFAULT; 



TUTObject; ABSTRACT; 



{which heap it is in} 
{frees just the object, 
{contents} 



not its } 
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171 
172 
173 
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179 
180 
181 
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183 
184 
185 
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192 
193 
194 
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PROCEDURE {TUTObject. }F 
FUNCTION [TUTObject. JC 
END; 



ree; 
Class; 



DEFAULT; 
TCI ass; 



{frees the object and its contents} 



TUTCol lection • SUBCLASS OF TUTObject 



{Variables} 
size: 
dynStart: 
heieStart: 
holes lze: 
heleStd: 

FUNCTION 
FUNCT ION 
FUNCT ION 
PROCEDURE 
PROCEDURE 

PROCEDURE 
PROCEDURE 
PROCEDURE 
PROCEDURE 
END; 



LONG INT; 
INTEGER; 
INTEGER; 
INTEGER; 
INTEGER; 



number of real elements, not counting the hole} 

bytes from the class ptr to the dynamic data) 

means hole at the beginning, size means hole 

measured in MemberBytes units) 

if the holeSize goes to 0, hou much to grow the collection by) 



at the end} 



TCollect ion. }CREATE( object: TUTObject; heap: THeap; 
TCol 1 ect ion. ' AddrNember( i: LONG INT): LONG INT; 
TCollect ion. ' HemberBytes; INTEGER; ABSTRACT; 
TCol 1 ect ion. ' Ed it At (at Index: LONG1NT; deltahembers: 
TCol 1 ect ion. } InshanyAt( i: L0NGINT; otherCol 1 ect ion: 

houMany: LONG INT); 
TCol 1 ect ion. } Res izeCol 1 ( membersPl usHol e: INTEGER) ; 
" *ShiftCol HafterSrc Index, afterDst Index, houMany: INTEGER); 

StartEdit(uith 

StopEdit 



initial Slack: INTEGER): TUTCol 1 ect ion; 



INTEGER); 
TUTCol lection; 



index, 



TCol 1 ect ion. 
TCol 1 ect ion. 
TCol 1 ect ion. 



lithSlack: INTEGER); 



TUTArray - SUBCLASS OF TUTCol 1 ect ion 
recordBytes: INTEGER; 



FUNCTION {TArray. }CREATE( object: TUTObject; heap: THeap; init ialSlack, bytesPerRecord; INTEGER) 

: TUTArray; 
HemberBytes: INTEGER; OVERRIDE; 
At( i: L0NGINT): Ptr, DEFAULT; 

InsAt( i: LONGINT; pRecord: Ptr); DEFAULT; 

InsLast(pRecord: Ptr); 

Del Al 1 ; 

DelAt(i: LONGINT); DEFAULT; 

DelHanyAt(i, houMany: LONGINT): DEFAULT; 

PutAt( i: LONGINT; pRecord: Ptr); 



FUNCTION {TArray. 
FUNCTION TArray. 
PROCEDURE TArray. 
PROCEDURE TArray. 
PROCEDURE TArray. 
PROCEDURE TArray. 
PROCEDURE TArray. 
PROCEDURE [TArray. 
END; 



TUTString - SUBCLASS OF TUTCol 1 ect ion 



FUNCT ION 
FUNCT ION 



TString. 
[ TString. [ 



FUNCTION TString, MemberBytes: INTEGER; OVERRIDE; 



PROCEOURE TString. , 



PROCEDURE TString. 

PROCEDURE TString. 

PROCEDURE TString. 

PROCEDURE [TString. 
END; 



CREATE( object: TUTObject; heap: THeap; init ialSlack: INTEGER): TUTString; 
At( i: LONGINT): CHAR; 



ToPAOCAt( i, houMany: LONGINT; pPackedArrayOfCharacter: Ptr); 



PROCEDURE [TString. ; lnsAt( i: LONGINT; character CHAR); 



InsPAOCAt( i: LONGINT; pPackedArrayOfCharacter Ptr, houMany: LONGINT); 
Del At ( i: LONGINT); 
DelManyAt(i, houMany LONGINT); 
Oel Al 1 ; 



[JENDC) 



TEnumLevelOfGranularity ■ (UTCharacters, UTParagraphs); 
TLevelOfGranularity ■ SET OF TEnumLevelOfGranularity; 

TCharDescriptor ■ RECORD 
font: 
face: 

superscript: 
keepOnSamePage 
END; 



{ character descroptor record } 
iR; { font number } 



INTEGER 

{SIFC Library Vers ion <- 20}TSeteface{SELSEC}style[$ENDC}; 

-128. . 127; { number of bits to superscript } 

BOOLEAN; 



{ format ing } 



TTabTvpes ■ (qLeftTab, qCenterTab, 

TTabF'ill - (tNoFill, tDotFill, 

TParaTypes ■ (qLeftPara, qCenterPara, 

TTabDescriptor • RECORD 

position: INTEGER; 

fill Bet ueenTabs: TTabFill; 

tabType: TTabTypes; 
END; 



TParaDescriptor - RECORD 

paragraphStart: BOOLEAN; 



qRightTab, qPeriodTab, qCommaTab); 

tHyphenFill, tUnderLineFill); 

qRightPara, qJustPara); 



Location of the tab} 

Fill character for the tab} 

Type of tab} 



{ TRUE if the beginning of the run is also the beginning of a 
paragraph} 
{$IFC UithUObject} 

additional ChrlnParagraph: INTEGER; 



{JENDC} 



[SIFC UithUObject) 

tabTabl e: 
[SELSEC} 

[JENDC} 



firstLineMargin: 

bodyMargin: 

rightMargin: 

faraLeading: 
ineSpac ing: 
ject) 
tabTafc 

tabTabl e: 



Left margin of first 1 ine} 

Left margin of subsequent 1 ines} 

Right margin} 

Paragraph leading} 

Inter-1 ine spacing } 



paraType: 

hasPicture: 

END; 



INTEGER, 
INTEGER 
INTEGER; 
INTEGER; 
0. . 63; 

TArray {OF TTabDescriptor}; { table of tabs } 

TUTArray {OF TTabDescriptor}; { table of tabs } 

TParaTypes; 
BOOLEAN; 



{Paragraph adjustment } 

[Is there a picture avaible for this paragraph?} 



(SIFC UithUObject} 

TTKUnivText » SUBCLASS OF TOBJECT 

{JELSEC} 

TUniwText - SUBCLASS OF TUTObject 

{JENDC} 

paragraphDescriptor. TParaDescriptor 
characterDescriptor TCharDescriptor, 
maxDataSize: INTEGER; 

{JIFC UithUObject} 

data: TString; 

{JELSEC} 

data: TUTString; 
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{JENDC} 



itsOurTString 



BOOLEAN; 



{$IFC UithUOblect} 

FUNCTION {TTKUnivText. }CREATE( object: TObject; 

itsHeap: THeap; 

itsTString: TString; 

itsDataSize: INTEGER) 
{JELSEC} 

FUNCTION {TUnivText. }CREATE( object: TUTObject; 

itsHeap: THeap; 

itsTString: TUTString; 

itsDataSize: INTEGER) 



{*NOC) 



TTKUnivText; 



TUnivText; 



PROCEDURE 
PROCEDURE 
PROCEDURE 
PROCEDURE 
PROCEDURE 
END; 



[TUnivText. 



.TUnivText , 
TUnivText. 



Free; OVERRIDE; 



TUnivText. RunToSt ream; 
TUnivText. StreamToTRun; 



TabTabI eToArgTbd; 
ArgTbdToTabTabl e; 



{JIFC UithUObject} 

TTKReadUnivText « SUBCLASS OF TTKUnivText 
{$ELSEC} 

TRaadUnivText - SUBCLASS OF TUnivText 
{$ENOC} 

{$IFC UithUObject} 

buffer TString; 
{JELSEC) 

buffer TUTString; 
{JENDC} 

col umnCount : INTEGER; 

dataBeforeTab: BOOLEAN; 

{JIFC UithUOblect) 

FUNCTION {TReadUnivText. }CREATE( object; TObject; 

itsHeap: THeap; 
itsTString: TString; 
itsDataSize: INTEGER; 
LevelOfGranularity: TLevelOfGranularity) 



{JELSEC} 



FUNCTION {TReadUnivText. }CREATE{ object: TUTObject; 

itsHeap: THeap; 
itsTString: TUTString; 
itsDataSize: INTEGER; 
LevelOfGranularity: TLevelOfGranularity) 



{JENDC} 



TTKReadUnivText; 



TReadUnivText; 



PROCEDURE {TReadUnivText. } Free; OVERRIDE; 



PROCEDURE TReadUnivText. 
PROCEDURE TReadUnivText. 



ReadRun; 
Restart; 



{ Returns one run of text each time called } 
I Resets the object to read from the begining } 



PROCEDURE {TReadUnivText. }ScanTable(VAR rous, 

tabColumns, 

tabStopColumns: INTEGER); 
{ Returns number of rous and colums of scrap if a valid table ] 

FUNCTION {TReadUnivText. }ReadField( maxFieldSize: INTEGER: 

VAR fieldOverflou: BOOLEAN; 
VAR fieldTerminator CHAR; 
VAR tabType: TTabTypes) 

: BOOLEAN; 
{ Returns one field of text each time called } 

FUNCTION {TReadUnivText. }ReadLine{ maxL ineS ize: INTEGER; 

VAR 1 ineOver flow: BOOLEAN; 
VAR 1 ineTerminator CHAR) 

: BOOLEAN; 
f Returns one line of text each time called } 
FUNCTION {TReadUnivText. }GetParaPicture( heap: THeap) 

: PicHandle; 
{ Copies the picture for the current paragraph into heap } 
END; 



{JIFC UithUObject} 
TTKUriteUnivText 

{JELSEC} 

TUriteUnivText 

{JENOC} 

{JIFC UithUOblect} 

TT' 



SUBCLASS OF TTKUnivText 
SUBCLASS OF TUnivText 



FUNCTION {TUriteUnivText. }CREATE( object: TObject; 

itsHeap: THeap; 
itsTString: TStrina 



gIr) 



{JELSEC} 



itsDataSize: INTE 



FUNCTION {TUriteUnivText. }CREATE( object: TUTObject; 

itsHeap: THeap; 
itsTString: TUTStri 



TTKUriteUnivText; 



itsDataSize: INTEGER! 



;Sf 



{JENDC} 



PROCEDURE {TUriteUnivText. }F ill Paragraph; 
END; 



TUriteUnivText; 
{Urites one run of text each time called) 



{JIFC NOT UithUObject} „ „ _ 

FUNCTION NewUT0bject(heap: THeap; itsClass: TClass): TUTObject; 
{JENDC} 

{JIFC fUniversalTextTrece} 
VAR 

fPrintSecrets: BOOLEAN; 
{JENDC} 
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IMPLEMENT AT ION 

JIFC fDbgOk} 

JELSEC} 
:$£NOC} 

SIFC fSy«Ok} 
,$ELSEC) 

JENDC] 

f $SETC doTr»ceUT : - FALSE} 

{$SetC fTraceUT :■ doTraceUT ANO fUniversal Text Trace J 

$IFC UithUObject} 
$S TKUTMain} 
SELSEC} 
$S UTMain} 
;$ENDC} 

{$1 1 ibut/UUnivTextZ text) 



$IFC UithUObject} 
$S TKUTInit} 
SELSEC} 
$S UTInit} 
!$ENDC} 

END. 
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1. 1 ibtk/uunivtext. TEXT 

2. 1 ibut/UUnivText2. text 



additional ChrlnP 192*( 1) 

AddrMember 125*{ 1) 

ArgTbdToTabTabla 239*( 1) 

At 143-f 1) 



•B- 



bodyhargin 
buffer 



1»5*( 1) 
2*r( 1) 



-C- 



ch 99* 

CHAR 99 
characterOescrip 215*( 

Class 112* 

classPtr 89*( 

col umnCount 254* 

CREATE 107 



-D- 
data 

dataBeforeTab 
Del All 
Del At 
Del ManyAt 
dynStart 

-E- 

EditAt 
Events 

-F- 
face 

fillBetueenTabs 
Fill Paragraph 
f irstLineHargin 
font 
FontMgr 
fPrintSecrets 
Free 
FreeOb ject 

-G- 
GetParaPicture 

-H- 
hasPicture 
header 
Heap 
holeSize 
holeStart 
hoi eSt d 

•I- 
InsAt 
InsLast 
InsHanyAt 
InsPAOCAt 
INTRINSIC 
itsOurTString 



218« 
255- 
146" 
147' 
148- 
91* 



127 
56 



:(i) 



173-1 


1) 


184* 


1 


319* 


1 


194* 


1 


172* 


1) 


45* 


1) 


328* 


1 


111* 


1 


109* ( 


1) 



294*( 1) 



205* 
98* 

108- 
93* ( 

92* ( 
94" 



144* 


1) 


145- 


1 


128* 


1} 


160* 


1 


24* 


1 


222* i 


1) 



-K- 



-L- 



-H- 



keepOnSamePage 

1 ineSpacing 

1- 

maxDataSize 
MemberBytes 



-N- 
NeuUTObject 

-P- 

paragraphDescrip 

paragraphStart 

paraLeading 

pa raType 

PicHandle 

PtfDecl 

pos it ion 

PrStdlnfo 

Ptr 

Put At 

-Q- 
qCenterPara 
qCenterTab 
qCommaTab 
qJustPara 
qLeftPara 
qLeftTab 
qPeriodTab 
qRightPara 
qRightTab 
QuickDraw 

-R- 
ReadField 
ReadL ine 
ReadRun 
recordBytes 
Res izeCol 1 
Restart 
right Margin 
RunToStream 



214 

189* 

197* 

204* 

295 

52* 

183* 

S3* 

85 

149* 



ISO- 
178* 
178* 

ISO- 
ISO- 

178- 
178- 
180- 
178* 
46- 



282* 

289* 

274* 

138 

130* 

275* 

196- 

236* 



156*( 1) 



252*( 1) 



156 ( 1) 



124*( 1} 140*( 1) 155 ( 1) 225*( 1) 230*( 1) 258*( 1) 265*( 1) 307 ( 1) 313*( 1) 
220*( 1) 



163* 
161* 
162* 
119- 



49*( 1) 
235*( 1) 273-( 1) 



121*( 1) 
120*( 1) 
122*( 1) 



159*( 1) 



175-( 1) 

198-( 1) 

216-f 1) 

126-( 1) 142-( 1) 157-( 1} 

323* ( 1) 



86 ( 1) 143 ( 1) 



48-( 1) 
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118 ( 1) 



202* ( 1) 



215 ( 1) 
89 ( 1) 112 ( 1) 
98 ( 1) 



169 
101 
108 



Hi 



-s- 

S255 84" 

Sc»nTabl e 277* 
Scrap 57* 

ShiftColl 131" 
$ ize 90* 

StartEdit 132* 

StopEdit 153* 
Storage 42* 

StreamToTRun 2J7" 
STRING " 84 

style --" 173 

superscript 174* 
Syscal 1 51* 

-T- 

tabTabl e 200* 

TabTabl eToArgTbd 238* 

tabType 185* 

TArray 200 

TCharuescriptor 171" 
TCI ass 86" 

TCollecHeader 88* 

tDotFill 179* 

TEnunCevelOfGran 168* 
TFastString 97* 
THeap 85* 

THFastString 102" 

tHyphenFill 179* 

TLevel Of Granular 169* 

tNoFill 179* 

T0BJECT 210 

ToPAOCAt 158* 

TParaDescriptor 188* 

TParaTypes 180* 

TPFastString 101* 

TReadUnivText 246 

TSeteface 173 

TString 218 

TTabDescriptor 182" 

TTabF il 1 179" 

TTabTypes 178* 

TTKReadUnivText 244- 

TTKUnivText 210* 

TTKUriteUnivText 301" 

tUndertineFill 179* 

TUnivText 212 

TUTArray 136* 

TUTCol 1 ect ion 115* 

TUTObject 105* 

TUTString 153* 

TyriteUnivText 303 

-U- 
UClascal 41*( 
UnitCS 55*{ 

UnitFmt 54*( 

UnitHz 39*( 

UnitStd 38*( 

UObject 35"( 

UTCharacters 168' 
UTKUniversalText 13* 

UTParagraphs 168* 
UUniversalText 15* 
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